THERE IS A operator, try writing OpenScript functions:
ccommands &
ximplemented
-- HyperTalk:
there
c"Home"
removed unsupported adjective: short
hc_Name
following
Ucould
^names):
Reset
createTheMenus
updateHomeMenu
suspendStack
((the
resumeStack
status
checkMark
HomeCard
newLink fileType
hc_Visible
saveVisMsgBox
"stack document
J"))
"Create
Blinked
q?" \
"File"
"Cancel"
f"Application"
"Document"
disallowInterruption
-- selects
"Select the" &&
&& "
prompt
"STAK"
filter
(filetype
"APPL"
-- no way
only documents
selectHCFile(
longFileName
lastHCItem(":",
shortFileName
longAppName
--& "
] & "
" & ":"
shortAppName
getHCPathName(
thePath
makeNewHCButton
hc_LastObject("
--writeHCScript(
"card
" &&
btnID
dragHCButton
updateHCPaths
appPath
-- clean up
Prompt
spec:
answer
longName
fileName
)) -
shortName,iconType
setUserLevelFive
some
ToolBook
"New
hc_SetButtonStyle
showName
height
Bicons,
paint
) * 6 > 36)
width
) * 6
Choose
Drawing
choose browse
restoreUserLevel
memErrorScript appName
result
xempty
F" &
31" &
" &&
& "Not enough memory
p & "
." &
,applName
"on mouseUp" &
theScript
F; --
will
--& "
" &&
e" &
--& "
" &&
--& "
# " &&
" &&
" &&
--&& "
f" &&
theButton
"Drag
desired location."
down))
( 8) / 0.6
halfBtnWidth
maxWidth
halfBtnHeight
maxHeight
b(hc_FromPage(
1 OF
b(hc_FromPageV(
2 OF
4Stacks,Applications,Documents
" &&
stringIsInContainer(
sysSuspendMessages
HyperCard
user
4hc_PageStack;
expression used
8"BookShlf.tbk"
" &&
hc_pop;
theString,theContainer
4s_bmpHandle
selectedTextlines
DOSfName
bmapNames
"earth_mi.
"\pc\_sta_pix\bmap8bit\minivws\scenics\" &
fPath
tbkBitmap("close bmpFile")
" &&
8 && "alias
" style overlapped
" &&
H state
bitmap's
translating
emessages
status
translatewindowmessage
bmpWindowClose
bmpButtonDown
untranslate
they
unTranslateAllWindowMessages
a timer
edirectly (Alt-f4)
lets
efinish closing
4sending a
--which
turn sends a
windows
tbkTimerStart("single",500,100,
tbkMMTimer
bmpButtonDown
buttonUp
bmpWindowClose
tbkMMTimer
buttonUp
\pc\_sta_pix\bmap8bit\minivws\scenics\
close bmpFile
tbkBitmap
alias bmpFile style overlapped parent
tbkBitmap
window bmpFile state show
tbkBitmap
status bmpFile window
tbkBitmap
bmpWindowClose
bmpButtonDown
fPath
bmapNames
s_bmpHandle
bmpButtonDown
close bmpFile
tbkBitmap
s_bmpHandle
bmpWindowClose
single
tbkTimerStart
tbkMMTimer
5fbmpButtonDown
lastC
countX
FileName
s_bmpHandle
bmpButtonDown
close bmpFile
tbkBitmap
s_bmpHandle
bmpWindowClose
single
tbkTimerStart
tbkMMTimer
5fbmpButtonDown
4s_bmpHandle
FileName)
countX
lastC
"down"
i >= 1
bmapNames
"\pc\_sta_pix\bmap8bit\minivws\voygerpx\" &
fPath
tbkBitmap("close bmpFile")
" &&
G && "alias
$ style overlapped
" &&
L state
--
bitmap's
translating
emessages
status
translatewindowmessage
bmpWindowClose
bmpButtonDown
untranslate
they
unTranslateAllWindowMessages
a timer
edirectly (Alt-f4)
lets
efinish closing
4sending a
--which
turn sends a
windows
tbkTimerStart("single",500,100,
tbkMMTimer
bmpButtonDown
buttonUp
bmpWindowClose
tbkMMTimer
buttonUp
\pc\_sta_pix\bmap8bit\minivws\voygerpx\
close bmpFile
tbkBitmap
alias bmpFile style overlapped parent
tbkBitmap
window bmpFile state show
tbkBitmap
status bmpFile window
tbkBitmap
bmpWindowClose
bmpButtonDown
sizeToPage
fPath
bmapNames
lastC
countX
FileName
s_bmpHandle
bmpButtonDown
close bmpFile
tbkBitmap
s_bmpHandle
bmpWindowClose
single
tbkTimerStart
tbkMMTimer
5fbmpButtonDown
Titan
Triton over vapor clouds
wind clouds w blue 1
4s_bmpHandle
selectedTextlines
DOSfName
bmapNames
"earth_mi.
"\pc\_sta_pix\bmap8bit\minivws\voygerpx\" &
fPath
tbkBitmap("close bmpFile")
" &&
8 && "alias
" style overlapped
" &&
H state
bitmap's
translating
emessages
status
translatewindowmessage
bmpWindowClose
bmpButtonDown
untranslate
they
unTranslateAllWindowMessages
a timer
edirectly (Alt-f4)
lets
efinish closing
4sending a
--which
turn sends a
windows
tbkTimerStart("single",500,100,
tbkMMTimer
bmpButtonDown
buttonUp
bmpWindowClose
tbkMMTimer
buttonUp
\pc\_sta_pix\bmap8bit\minivws\voygerpx\
close bmpFile
tbkBitmap
alias bmpFile style overlapped parent
tbkBitmap
window bmpFile state show
tbkBitmap
status bmpFile window
tbkBitmap
bmpWindowClose
bmpButtonDown
fPath
bmapNames
s_bmpHandle
bmpButtonDown
close bmpFile
tbkBitmap
s_bmpHandle
bmpWindowClose
single
tbkTimerStart
tbkMMTimer
5fbmpButtonDown
marked
false
mini PICTs versions:mini space fantasy
Page Pict
:PHYSSIZE
PICT preview
CT preview
showNameProp
false
FileName
bmapNames
ttonDown
buttonDown
\pc\_sta_pix\sta_tbks\mnpixfan.tbk
sharedText
false
textHeightProp
accretion of gases
aerobic planet
Atmos spheres
being and becoming
birth of Jupiter
birth of Jupiter/bitmap
birth of Venus
blue planet
class M planet
class M planet 2
complex singularities
cool moon
cosmic egg
dark body w rings
distorted forcefield
early formation
early full moon
earth view
earth/bitmap
energy wave
energy wave curl
evolving planets
flyby mountains
footprint of lifeform
forcefield vortex
gravitational force effect
highly reflective sphere
hot centered vortex
hot liquid sphere
hot spot in sulfuric mists
initial conditions
Martian landscape
moon in murk
moon in orbit
occluded sun w corona
partial occultation
passing sphere
planet in solar wind
red planet fantasy
sandstorm on Dune
solar wind effects
starbirth
starshine on misty planet
streaking comet 2
the strong force w moon
Titan
Triton over vapor clouds
wind clouds w blue 111d clouds w blue 1
ACC_GAS.BMP
AER_PLNT.BMP
ATMOS_SP.BMP
BEING_BC.BMP
BIRTHJP.BMP
BIRTHJPB.BMP
BIRTHVEN.BMP
BL_PLNT.BMP
CLSSMPL.BMP
CLSSMPL2.BMP
COMPL_SG.BMP
COOLMOON.BMP
CSMC_EGG.BMP
DARK_BDY.BMP
DIST_FFD.BMP
EARL_FM.BMP
EARL_FMN.BMP
EART_VIE.BMP
EART_VWB.BMP
ENGY_WV.BMP
ENGY_WVC.BMP
EVLG_PLT.BMP
FLBY_MTN.BMP
FOOTP_LF.BMP
FORC_FVX.BMP
GRAV_FFE.BMP
HIGH_REF.BMP
HOT_CVTX.BMP
HOT_LQS.BMP
HOT_SPSM.BMP
INIT_CON.BMP
MART_LND.BMP
MOON_MRK.BMP
MOON_ORB.BMP
OCC_SUN.BMP
PART_OCC.BMP
PASS_SPH.BMP
PL_INSLW.BMP
RED_PLNT.BMP
SANDSTRM.BMP
SOLR_WND.BMP
STARBIRT.BMP
STAR_SHN.BMP
STR_CMT2.BMP
TH_STRNG.BMP
TITAN.BMP
TRIT_VAP.BMP
WIND_CLD.BMP
i >= 1
bmapNames
"\pc\_sta_pix\bmap8bit\minivws\spacefan\" &
fPath
tbkBitmap("close bmpFile")
" &&
G && "alias
$ style overlapped
" &&
L state
--
bitmap's
translating
emessages
status
translatewindowmessage
bmpWindowClose
bmpButtonDown
untranslate
they
unTranslateAllWindowMessages
a timer
edirectly (Alt-f4)
lets
efinish closing
4sending a
--which
turn sends a
windows
tbkTimerStart("single",500,100,
tbkMMTimer
bmpButtonDown
buttonUp
bmpWindowClose
tbkMMTimer
buttonUp
\pc\_sta_pix\bmap8bit\minivws\spacefan\
close bmpFile
tbkBitmap
alias bmpFile style overlapped parent
tbkBitmap
window bmpFile state show
tbkBitmap
status bmpFile window
tbkBitmap
bmpWindowClose
bmpButtonDown
sizeToPage
fPath
bmapNames
lastC
countX
FileName
s_bmpHandle
bmpButtonDown
close bmpFile
tbkBitmap
s_bmpHandle
bmpWindowClose
single
tbkTimerStart
tbkMMTimer
5fbmpButtonDown
--on mouseUp
title and text
marked
false
Page Pict
:PHYSSIZE
textHeightProp
These mini pictures are reduced versions of some of the images.
They are organized in two groups, according to their subject categories: 'mini scenics' and 'mini Voyager's views'.
We originally created these reductions for our own demo purposes but then decided to include them here as a 'bonus' feature.
In many Macintosh systems the larger versions may take a long time to load onto the screen, so these smaller versions are handy for faster access when a quick sampling slide show is needed, or for filling the common need for small pictures that can be made to fit with text material on a page.
These mini pictures are especially handy for use in astronomy newsletters and flyers!
8"Home.tbk"
buttonUp
buttonUp
Home.tbk
showNameProp
false
517,1
card_button,1,1,normal,0
card_button,2,4,normal,1
card,3,5016,2
card_button,1,1,normal,0
card_button,2,2,normal,1
resFactors
fuels Napa's economy., A) By Chuck O'Rear/Woo
Home Cards
dontSearch
false
Bg Pict
:PHYSSIZE
PathName
sharedText
false
textHeightProp
Eco-graphics
8"\pc\sta.TBK"
buttonUp
buttonUp
\pc\sta.TBK
showNameProp
false
buttonUp
buttonUp
buttonUp
buttonUp
athName &":"&
no conversion
HyperCard Picture Windows, try another ToolBook instance:
,deepest
hc_Show
(pictureClick
named windows,
tances:
mulitple
econtrol --
ximplemented
close
-- wait
buttonUp
Z buttonUp
\pc\_sta_pix\sta_tbks\mnpixvoy.tbk
LastWindow
lastC
countX
FileName
wind clouds w blue 1
mini PICTs versions:mini Voyager's views
Callisto and Ganymede
Europa over Jupiter
Gan/C2060823.1MQ;1
Ganymede
Ganymede and Jupiter
Io and Europa
Jup/C1980815.IMQ;1
Jup/C2065108.IMQ;1
Neptune
Neptune 2
Neptune and Triton
Saturn 1
Saturn 2
Saturn 3
Triton
cvtitInfo
Created by: ConvertIt! v1.5
Creation date: 6/30/92
mini PIX intro
scriptState
HyperTalk
System
System
15,15
symbolTable
bgIDList
background,1,2727,0
background_field,1,167,24,0
background_field,2,7,24,1
background_field,3,181,13,2
background_field,4,182,16,3
background_button,1,175,normal,4
background_button,2,178,normal,5
background_button,3,179,normal,12
card,1,4469,0
card_field,1,3,16,0
card_button,1,1,normal,1
card_button,2,2,normal,2
card_button,3,4,normal,3
card,2,5517,1
card_button,1,1,normal,0
card_button,2,4,normal,1
card,3,5016,2
card_button,1,1,normal,0
card_button,2,2,normal,1
resFactors
Created by: ConvertIt! v1.5
DLL Version: 1.5 of Apr 28 1992 11:33:15
Creation date: 6/30/92
large: placed
Conversion Report Book.
marked
false
mini PICTs versions:mini Voyager's views
Page Pict
:PHYSSIZE
PICT previewd
:PHYSSIZE
PICT preview
showNameProp
false
FileName
textHeightProp
sharedText
false
Callisto and Ganymede
Europa over Jupiter
Gan/C2060823.1MQ;1
Ganymede
Ganymede and Jupiter
Io and Europa
Jup/C1980815.IMQ;1
Jup/C2065108.IMQ;1
Neptune
Neptune 2
Neptune and Triton
Saturn 1
Saturn 2
Saturn 3
Triton
bmapNames
CALLIS_G.BMP
EUR_JUP.BMP
GAN2060.BMP
GANYMEDE.BMP
GANY_JUP.BMP
IO_EUR.BMP
JUP1980.BMP
JUP2065.BMP
NEPT.BMP
NEPT2.BMP
NEPTU_TR.BMP
SATURN1.BMP
SATURN2.BMP
SATURN3.BMP
TRITON.BMP
gravitational force effect
highly reflective sphere
hot centered vortex
hot liquid sphere
hot spot in sulfuric mists
initial conditions
Martian landscape
moon in murk
moon in orbit
occluded sun w corona
partial occultation
passing sphere
planet in solar wind
red planet fantasy
sandstorm on Dune
solar wind effects
starbirth
starshine on misty planet
streaking comet 2
the strong force w moon
Titan
Triton over vapor clouds
wind clouds w blue 1
4s_bmpHandle
wtime
"down"
FileName)
countX
lastC
i >= 1
bmapNames
"\pc\_sta_pix\bmap8bit\minivws\scenics\" &
fPath
tbkBitmap("close bmpFile")
" &&
G && "alias
$ style overlapped
" &&
L state
--
bitmap's
translating
emessages
status
translatewindowmessage
bmpWindowClose
bmpButtonDown
untranslate
they
unTranslateAllWindowMessages
a timer
edirectly (Alt-f4)
lets
efinish closing
4sending a
--which
turn sends a
windows
tbkTimerStart("single",500,100,
tbkMMTimer
bmpButtonDown
buttonUp
bmpWindowClose
tbkMMTimer
buttonUp
\pc\_sta_pix\bmap8bit\minivws\scenics\
close bmpFile
tbkBitmap
alias bmpFile style overlapped parent
tbkBitmap
window bmpFile state show
tbkBitmap
status bmpFile window
tbkBitmap
bmpWindowClose
bmpButtonDown
sizeToPage
fPath
bmapNames
lastC
countX
FileName
wtime
s_bmpHandle
bmpButtonDown
close bmpFile
tbkBitmap
s_bmpHandle
bmpWindowClose
single
tbkTimerStart
tbkMMTimer
5fbmpButtonDown
4s_bmpHandle
wtime
"down"
FileName)
countX
lastC
i >= 1
bmapNames
"\pc\_sta_pix\bmap8bit\minivws\voygerpx\" &
fPath
tbkBitmap("close bmpFile")
" &&
G && "alias
$ style overlapped
" &&
L state
--
bitmap's
translating
emessages
status
translatewindowmessage
bmpWindowClose
bmpButtonDown
untranslate
they
unTranslateAllWindowMessages
a timer
edirectly (Alt-f4)
lets
efinish closing
4sending a
--which
turn sends a
windows
tbkTimerStart("single",500,100,
tbkMMTimer
bmpButtonDown
buttonUp
bmpWindowClose
tbkMMTimer
buttonUp
\pc\_sta_pix\bmap8bit\minivws\voygerpx\
close bmpFile
tbkBitmap
alias bmpFile style overlapped parent
tbkBitmap
window bmpFile state show
tbkBitmap
status bmpFile window
tbkBitmap
bmpWindowClose
bmpButtonDown
sizeToPage
fPath
bmapNames
lastC
countX
FileName
wtime
s_bmpHandle
bmpButtonDown
close bmpFile
tbkBitmap
s_bmpHandle
bmpWindowClose
single
tbkTimerStart
tbkMMTimer
5fbmpButtonDown
-- Translated
too large: placed
Conversion Report Book.
-- The following handlers were added
HConvertIt!,
are necessary
-- support the translated scripts
-- Needed
f, but had a possible conflict (try uncommenting):
"tbkmm.sbk"
"\pc\_runtime\
tbkmmInitializeSystem
hc_FromPage thePoints
HResFactor
VResFactor
numPoints
outPoints
pointCount
"," &
hc_FromPageV
hc_GetButtonHilite objectSpecifier
myStyle
myChecked
myInvert
hc_Hide
" &&
" &&
&& "
myObject")
" &&
hc_IsWithin
, theBounds
-- Use
qbecause arguments passed may be literals
expressions,
-- so actual
=might vary (values contain commas).
>=
2 <=
6 >=
H <=
hc_LastObject objectType, parentRef
myObjects
theObject
hc_ObjectCount
objCount
hc_SetButtonStyle
, theStyle
"opaque"
"shadow"
"roundRect"
hc_Show
" &&
" &&
&& "
" &&
fieldID
showNameProp
height
theHeight
hc_ToPageV(
arget
oldHeight
)/2)
heightDiff
hc_Name
theName
theLab
showFlag
handles icon buttons, which
iconID
iconPos
hc_Visible
theVis
width
theWidth
4 -
oldWidth
)/2)
widthDiff
"," &
enterBook
hc_SetButtonStyle
sWithin
hc_LastObject
hc_FromPageV
hc_ObjectCount
height
hc_GetButtonHilite
hc_Name
showName
hc_Visible
hc_FromPage
width
hc_ToPageV
hc_IsWithin
hc_ToPage
showName
hc_Name
hc_Visible
height
width
enterBook
sizeToPage
tbkmm.sbk
\pc\_runtime\tbkmm.sbk
tbkmmInitializeSystem
hc_FromPage
pointCount
outPoints
numPoints
VResFactor
HResFactor
thePoints
hc_FromPageV
VResFactor
HResFactor
thePoint
hc_GetButtonHilite
checkbox,radiobutton
myInvert
myChecked
myStyle
objectSpecifier
hc_IsWithin
theBounds
thePoint
hc_LastObject
recordField
theObject
myObjects
parentRef
objectType
hc_ObjectCount
theObject
myObjects
objCount
parentRef
objectType
hc_SetButtonStyle
transparent
opaque
shadow
roundRect
theStyle
objectSpecifier
height
hc_ToPageV
heightDiff
oldHeight
theBounds
theHeight
height
hc_FromPageV
theHeight
theBounds
hc_Name
button
group
showNameProp
theLab
theName
hc_Name
showName
group
showNameProp
hc_ToPageV
showNameProp
hc_ToPageV
showNameProp
iconPos
iconID
fieldID
showFlag
showName
showNameProp
hc_Visible
button
group
theVis
hc_Visible
button
group
width
hc_ToPage
widthDiff
oldWidth
theBounds
theWidth
width
hc_FromPage
theWidth
theBounds
hc_ToPageV
VResFactor
HResFactor
thePoint
hc_ToPage
pointCount
outPoints
numPoints
VResFactor
HResFactor
thePoints
-- Translated
too large: placed
Conversion Report Book.
-- The following handlers were added
HConvertIt!,
are necessary
-- support the translated scripts
-- Needed
f, but had a possible conflict (try uncommenting):